340 REM  ------------------------------
350 Z$=CHR$(0)
360 DV=8:D=0:REM  DEVICE, DRIVE
370 T=35:S=16:REM  TRACK, SECTOR
380 OPEN 15,DV,15:OPEN 1,DV,3,"#"
390 GOSUB 450:IF E THEN STOP
400 PRINT#15,"U1"3;D;T;S
410 GOSUB 450:IF E THEN STOP
420 FOR J=0 TO 7:GET#1,I$
430 PRINT ASC(I$+Z$):NEXT J
440 CLOSE 1:CLOSE 15:END
450 INPUT#15,E,E$:PRINT E;E$:RETURN
460 REM  ------------------------------